home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / tutor / vispas.arj / MODESW < prev    next >
Text File  |  1985-08-08  |  256b  |  11 lines
  1. PROGRAM MODESW;
  2. VAR
  3.   MODE:INTEGER;
  4. BEGIN
  5.   REPEAT
  6.     WRITE('enter mode:');
  7.     READLN(MODE);
  8.     IF MODE <> 8 THEN SETMODE(MODE);
  9.   UNTIL MODE = 8;
  10. END.
  11.